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-- Statistics. Mesa Edited by Sandman on April 20, 1978 9:45 AM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFileDefs: FROM "altof i1 edef s" , 
BcdDefs: FROM "bcddefs". 
ControlDefs: FROM "controldef s" , 
FrameDefs: FROM "framedefs", 
lODefs: FROM "iodefs", 
ImageDefs: FROM "imagedefs", 
InlineDefs: FROM "in! inedef s" , 
MiscDefs: FROM "miscdefs", 
SegmentOefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" , 
SymDefs: FROM "symdefs", 
SystemDefs: FROM "systemdef s" , 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM AUoDefs, AUoFileDefs, lODefs, SegmentDefs, StringDefs, StreamDefs; 

Statistics: PROGRAM 

IMPORTS lODefs, SegmentDefs, StreamDefs, StringDefs, 
SystemDefs, TimeDefs, MiscDefs = 

PUBLIC BEGIN 

-- types and globals 

StatType: TYPE « 

{char, 1 ine.codebytes ,f names ize.ngfi . n1 inks,codepages,sympages} ; 



charField,codebyteFie1d: CARDINAL = 7; 

n1inksFie1d,lineFie1d,framesizeField: CARDINAL 

codepageField: CARDINAL = 5; 

sympageField: CARDINAL =» 4; 

fsiField: CARDINAL = 4; 

ngfiField: CARDINAL = 3; 

filenameField: CARDINAL = 26; 

file: FileHandle ^ NIL; 

code: FileSegmentHandle <- NIL; 

syms: FileSegmentHandle <- NIL; 

cmdstream: StreamHandle; 

stream: StreamHandle; 

Ic: INTEGER; 

full: INTEGER = 18; 

buffer: POINTER; 

BufSize: CARDINAL « 40*256; 



6; 



stats: ARRAY StatType OF CARDINAL <- [0,0,0.0,0,0.0,0]; 

total, subtotal: ARRAY StatType OF LONG INTEGER *- [0, 0, 0, 0, 0, 0. 0, 0]; 



format: ARRAY StatType OF lODef s .NumberFormat = 
[[base: 10, zerofill: FALSE, unsigned: TRUE, 



[base: 10, zerofill 

[base: 10, zerofill 

[base: 10, zerofill 

[base: 10, zerofill 

[base: 10, zerofill 

[base: 10, zerofill 

[base: 10, zerofill 



FALSE, unsigned: TRUE 

FALSE, unsigned: TRUE, 

FALSE, unsigned: TRUE. 

FALSE, unsigned: TRUE, 

FALSE, unsigned: TRUE. 

FALSE, unsigned: TRUE, 

FALSE, unsigned: TRUE, 



columns :charField], 
columns : 1 ineField] , 
columns : codeby teF ield] , 
columns : f names izeF ield], 
columns: ngfiField], 
columns:nlinksField], 
columns: codepageField] , 
columns : sympageFiel d]]; 



-- the Following should be sets 

StatsWanted.localStatsWanted: PACKED ARRAY StatType OF BOOLEAN ♦- 
[TRUE , TRUE , TRUE , TRUE . TRUE , TRUE . TRUE . TRUE] ; 

StatsDesined: TYPE - DESCRIPTOR FOR PACKED ARRAY StatType OF BOOLEAN; 

- pnocedunes 

BcdSwitches: PROCEDURE [wanted: BOOLEAN, st: StatsDesined] « 
BEGIN 

s t [codeby tes]*-wan ted; 
st[f names ize]*-wanted; 
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st[ngf i]<-wanted; 

st[n1inks]<-wanted; 

st[codepages]^wanted; 

st[synipages]<-wanted; 

END; 

GetBcdStats: PROCEDURE [codeseg.symseg : FileSegmentHandle] » 
BEGIN OPEN ControlDefs, SegmentDefs; 
codebase: POINTER; 
cp: POINTER TO CSegPrefix; 

code: POINTER TO PACKED ARRAY [0..0) OF AUoDef s . BYTE ; 
codebytes: CARDINAL ^ codeseg.pages*Al toDef s .BytesPerPage-1; 
ep: POINTER TO EntryVectorltem; 
SwapIn[codeseg]; 

cp ♦- code *- codebase <- FneSegmentAddress[codeseg] ; 
stats[nlinks] <- cp'nlinks; 
stats[ngfi] ♦- cp.ngfi; 
ep ♦- 0cp .entry[MainBodyIndex]; 
stats[f ramesize] ^ (codebase+CARDINAL[ep . ini tialpc] - 

(IF ep.framesize = MaxAllocSlot THEN 2 ELSE l))t; 
UNTIL code[codebytes] j^ DO codebytes <- codebytes-1 ENDLOOP; 
stats[codepages] <- codeseg. pages; 
stats[codebytes] <- codebytes+1; 
Un1ock[codeseg]; 
stats[sympages] <- symseg. pages; 
RETURN 
END; 

GetModule: PROCEDURE [f ile: FileHandle] RETURNS [codeseg , symseg : FileSegmentHandle] 
BEGIN 

bed: POINTER TO BcdDefs.BCD; 
pages: Al toDef s .PageCount; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex = FIRST[BcdDef s .MTIndex] ; 
bcdseg: FileSegmentHandle <- NewFileSegment[f ile, 1, 1, Read]; 
Swapln[bcdseg] ; 

bed <- FileSegmentAddress[bcdseg]; 
IF (pages <- bcd.nPages) ff 1 THEN 

BEGIN 

Unlock[bcdseg]; 

MoveFileSegment[bcdseg, 1, pages]; 

Swapln[bcdseg] ; 

bed <- FileSegmentAddress[bcdseg]; 

END; 
IF bcd.versionident # BcdDefs.VersionID THEN 

BEGIN 

WriteString[" bad version ID "L]; 

WriteDecimal [bcd.versionident]; 

Unlock[bcdseg] ; 

DeleteFil eSegment[ bcdseg] ; 

RETURN[NIL. NIL] 

END; 
IF bcd.nModules ff 1 THEN 

BEGIN 

WriteString[" too many modules: "L]; 

WriteDecimal [bcd.nModules] ; 

Unlock[bcdseg] ; 

DeleteFil eSegment[ bcdseg]; 

RETURN[NIL, NIL] 

END; 
mtb *- LOOPHOLE[bcd.CARDINAL]+bcd.mtOffset; 
codeseg ^ IF bed .definitions THEN NIL ELSE 

FindSegment[bcdseg , (mtb+mti ) .code.sgi , FALSE]; 
symseg <- FindSegment[bcdseg . (mtb+mti ). sseg, FALSE]; 
Unlock[bedseg]; 
DeleteFil eSegment[bcdseg] ; 
RETURN 
END; 

FindSegment: PROCEDURE [ 

seg: FileSegmentHandle, sgi: BedDefs .SGIadex , long: BOOLEAN] 

RETURNS [FileSegmentHandle] « 

BEGIN OPEN BedDefs; 

file: SegmentDef s . FileHandle; 

bed: POINTER TO BcdDefs.BCD <- Fil eSegmen tAddress[seg] ; 

ssb: BedDefs. NameString « LOOPHOLE[bcd+bed . ssOf f set]; 
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sgh: SGHancHe « LOOPHOLE[bccJ+bcd . sgOf Fset , CARDINAL]+sgi ; 

IF sgh. file « BcdDef s . FTNull THEN RETURN[NIL] 

ELSE IF sgh. file » BcdDef s . FTSelf THEN file <- sag. file 

ELSE 

BEGIN 

fth: FTHandle « LOOPHOLE[bcd+bcd . f tOf f set , CARDINAL]+sgh. f ile; 

name: STRING <- SystemDef s . AllocateHeapString[ssb . si/eCfth .name]+4] ; 

ss: StringDefs .SubStringDescriptor <- 

[@ssb . string, fth. name, ssb . size[Fth.name]]; 

StringDefs . Appends ubSt ring [name, @ss] ; 

Check ForE X ten sion[ name, " . bcd**L] ; 

file <- NewFile[name, Defaul tAccess , Defaul tVersion] ; 

SystemDef s.FreeHeapString[name]; 

END; 
RETURN[NewFileSegment[file, sgh. base, 

sgh. pages + (IF long THEN sgh.extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] « 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = ' . THEN RETURN; 

ENDLOOP; 
StringDefs . Appends tring[ name , ext]; 
RETURN 
END; 

GetSrcStats: PROCEDURE [stream: StreamHandle] = 
BEGIN 

count, i: CARDINAL; 
nc, nl : CARDINAL ^ 0; 

crock: POINTER TO PACKED ARRAY OF CHARACTER « buffer; 
UNTIL (count «- ReadBlock[ 

stream: stream, address: buffer, words: BufSize 1 

StreamError => CONTINUE])=0 DO 
FOR i IN [0. .count*2) DO 

IF crock[i] = lODefs.CR THEN nl <- nl+1; 
nc <- nc+1; 
ENDLOOP; 
ENDLOOP; 
stats[char] <- nc; stats[line] <- nl ; 
RETURN 
END; 

GetStats: PROCEDURE » 
BEGIN 

name: STRING ^ [40]; 
switches: STRING <- [10]; 
command: BOOLEAN; 
i: CARDINAL <r 0; 
headingWanted: BOOLEAN <- TRUE; 

buffer *- SystemDef s .Al locateSegment[BufSize]; 
SetCommandInput[] ; 
WHILE NextFile[name, switches] DO 
IF name[0] = '? THEN HelpMessage[] 
ELSE 
BEGIN 

localStatsWanted ^ StatsWanted; command ^ FALSE; 
i <- 0; 

WHILE i < switches. length DO 
SELECT switches[i] FROM 

'b.'B => BcdSwitches[TRUE.DESCRTPTOR[localStatsWanted]]; 
'm,'M => SourceSwitches[TRUE.DESCRIPTOR[localStatsWanted]]; 
•x. •X = > BEGIN 

BcdSwi tches[FALSE,DESCR IP rOR[ local StatsWanted]]; 
ManagerSwitches[TRUE,DESCRIPTOR[ local StatsWanted]]; 
END; 
'- «>BEGIN 

i <- i + 1; 

SELECT switches[i] FROM 
'b.'B -> BcdSwi tches[FALSE.DESCRIPTOR[localStatsWanted]]; 
'm, 'M «> SourceSwitches[FALSE,DESCRIPTOR[localStatsWanted]]; 
'x. 'X «> ManagerSwitches[FALSE.DESCRIPTOR[localStatsWanted]]; 
ENDCASE«> HelpMessage[]; 
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END; 
'c, 'C »> BEGIN 

SELECT name[0] FROM 
'b,'B »> BcdSwitches[TRUE,DESCRTPTOR[StatsWanted]]; 
'd.'D => MiscDefs.Cal lDebugger[NIL]; 
'h. 'H «> Heading[]: 

•m.'M »> SourceSwitches[TRUE,DESCRIPTOR[StatsWanted]]; 
'x, •X=> BEGIN 

BcdSwitches[ FALSE. DESCRIPTOR[StatsV/anted]]; 
ManagerSwitches[TRUE,DESCRIPTOR[StatsWanted]]; 
END; 
't.'T «> Total["TOTAL:"L. FALSE]; 
's.'S => Tota1["SUBrOTAL:"L,TRUE]; 
'- «> SELECT name[l] FROM 

'b.'B => BcdSwitches[FALSE,DESCRIPTOR[StatsWanted]]; 
'm/M «> SourceSwitches[FALSE,DESCRIPTOR[StatsWanted]]; 
'x.'X => ManagerSwitches[FALSE,DESCRIPTOR[StatsWanted]]; 
ENDCASE=> HelpMessage[]; 
ENDCASE => HelpMessage[]; 
command ^ TRUE; 
END; 
ENDCASE => HelpMessage[]; 
i ^ i + 1; 
ENDLOOP; 
IF NOT command THEN 
BEGIN 

IF headingWanted THEN BEGIN headingWanted <- FALSE; Heading[] END; 
Str ipExtension[name] ; 
WriteString[name] ; 

THROUGH [name. length. .filenameField) DO WriteChar[' ] ENDLOOP; 
Ap pen dString[ name, " .mesa"L] ; 
RecordSrcStats[name 1 FileNameError »> 
BEGIN 

Sour ceSwitches[ FALSE, DESCRIPT0R[1 oca IStatsWan ted]]; 
CONTINUE 
END]; 
StripExtension[name]; AppendString[name, " ,bcd"L]; 
RecordBcdStats[name I FileNameError «> 
BEGIN 

BcdSwitches[FALSE.DESCRIPTOR[localStatsWanted]]; 
CONTINUE 
END]; 
TallyStats[]; 

PrintStats[]; 

WriteChar[CR]; 

END; 
END; 
ENDLOOP; 

SystemDef s . FreeSegment[buff er] ; 
END; 

Heading: PROCEDURE « 
BEGIN 

type: StatType; 
header: ARRAY StatType OF STRING = 

["chars "L, "lines "L, "codebytes "L, "f ramesize "L,"ngfi "L, 
"nlinks "L, "codepages "L,"sympages "L]; 

WriteChar[CR]; 

THROUGH [0. .filenameField) DO WriteChar[' ] ENDLOOP; 

FOR type IN StatType DO 

IF localStatsWanted[type] THEN WriteString[header[type]] ENDLOOP; 
WriteChar[CR]; 

THROUGH [0. .filenameField) DO WriteChar[' ] ENDLOOP; 
FOR type IN StatType DO 
IF localStatsWanted[type] THEN 

BEGIN 

IF type = LAST[StatType] THEN WriteChar[' ]; 

THROUGH [0. .format[type]. columns) DO Wr i teChar[ ' -] ; ENDLOOP; 

THROUGH [0..2) DO WriteChar[' ]; ENDLOOP; 

END; 
ENDLOOP; 
WriteChar[CR]; 
WriteChar[CR]; 
END; 
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HelpMessage: PROCEDURE » 

BEGIN 

WriteLine["The following commands are available: "L]; 

WriteLine[" b,B - bed stats"L]; 

WriteLine[" d,D ~ enter d8bugger"L]; 

WriteLine[" h,H - print column headings"!.]; 

WriteLine[" m,M - source stats"L]; 

WriteLine[" s.S - subtotaVL]; 

WriteLine[" t,T - totaV'L]; 

WriteLine[" x,X - source characters, source lines, code bytes, and frame size only"L]; 

Wri teLine["b , m, and x are also valid file switches which override the global settings for the file 
*♦. c and C are switches which indicate a command, i.e. d/c is the command to call the debugger. To sup 
**press the printing of a set of stats, either locally or globally, precede the switch or command by a 
**minus {'-'). Hence -b/c suppresses the printing of all bed stats, and foo/-b suppresses the printing 
♦*of bed stats for file foo. The default settings are b and m."L]; 

END; 



ManagerSwitches: PROCEDURE [wanted: BOOLEAN, st: StatsDesired] 
BEGIN 

st[char] ♦- wanted; 
st[l ine] <- wanted; 
st[codebytes] ^ wanted; 
st[f ramesize]<- wanted; 
END; 

NextFile: PROCEDURE[name .switches : STRING] RETURNS [BOOLEAN] « 
BEGIN 

temp: STRING ^ [80]; 
i: CARDINAL <- 0; 
getl: PROCEDURE RETURNS [CHARACTER] = 

BEGIN 

RETURN[IF cmdstream.endof[cmdstream] THEN lODefs.NUL 
ELSE cmdstream.get[cmdstream]] 

END; 
get2: PROCEDURE RETURNS [e: CHARACTER] « 

BEGIN 

IF i < temp. length THEN BEGIN c ^ temp[i]; i *- i+1 END 

ELSE e <- lODefs.NUL; 

RETURN[c] 

END; 
IF cmdstream ^ NIL THEN GetToken[getl , name, switches] 
ELSE 

BEGIN 

WriteString["File: "L]; 

ReadID[temp]; 

WriteChar[CR]; 

Get Token [get 2 , name, switches]; 

END; 
RETURN[name. length # 0]; 
END; 



GetToken: PROCEDURE [ 

get: PROCEDURE RETURNS [CHARACTER], token, switches: STRING] « 
BEGIN OPEN lODefs; 
s: STRING; 
c: CHARACTER; 

token. length <- switches . length ♦- 0; 
s ♦- token; 

WHILE (c i- get[]) ff NUL DO 
SELECT c FROM 
SP, CR => 

IF token, length *^ OR switches . 1 ength ^ THEN RETURN; 
'/ *> s <- switches; 

ENDCASE => StringDefs.AppendChar[s, c]; 
ENDLOOP; 
RETURN 
END; 



PrintStats: PROCEDURE - 
BEGIN OPEN lODefs; 
type: StatType; 
FOR type IN StatType DO 

IF localStatsWanted[type] THEN 
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BEGIN 

WriteNuniber[stats[type] , format[type]] ; 
IF type » codepages THEN 
BEGIN 

bytes: CARDINAL ^ stats[codebytes]+s bats[nl inks3*2 ; 
bytes ^ (IF stats[minks] MOD 2 -0 THEN 4 ELSE 2) + bytes; 
IF SystemDefs.PagesForWords[bytes/AUoDefs.BytesPerWord] /^ 

stats[codepages] THEN WriteChar[ ' ♦] ELSE Wri teChar[SP] ; 
END; 
IF type i^ LAST[StatType] THEN WriteString[" "L]; 
END 
ENDLOOP; 
END; 

RecordBcdStats: PROCEDURE [name:STRING] » 
BEGIN OPEN StringDefs; 
type: StatType; 
any: BOOLEAN ^ FALSE; 

FOR type IN [ngf i . . sympages] DO any <- any OR 1ocalStatsWanted[type] ENDLOOP; 
any ^ any OR 1ocalStatsWanted[codebytes] OR localStatsWanted[f ramesize] ; 
IF any THEN 
BEGIN 

file ♦- NewFi1e[name, Read .OldFileOnly]; 
[code,syms] <- GetModu1e[f ile]; 
IF code ^ NIL THEN 
BEGIN 

GetBcdStats[code,synis]; 
Del eteFileSegment[ code] ; 
END 
ELSE BcdSwitches[FALSE.DESCRIPTOR[localStatsWanted]]; 
IF syms NIL THEN Del eteFi 1 eSegment[syms] ; 
END; 
RETURN 
END; 

RecordSrcStats: PROCEDURE [name: STRING] « 
BEGIN OPEN StringDefs, SegmentDefs; 
IF localStatsWanted[char] OR localStatsWanted[l ine] THEN 

BEGIN 

file <- NewFile[name, Read .OldFileOnly] ; 

stream «- CreateByteStream[f ile, Read]; 

GetSrcStats[stream]; 

stream. destroy [stream] ; 

END; 
RETURN; 
END; 

SetCommandlnput: PROCEDURE = 
BEGIN OPEN SegmentDefs; 

cfa: POINTER TO Al toFi leDef s .CFA ^ MiscDef s .CommandLineCFA[] ; 
IF cfa.fp - AltoFileDefs.NullFP THEN BEGIN cmdstream ^ NIL; RETURN END; 
cmdstream ♦- StreamDef s .CreateByteStream[InsertFile[@cf a. f p , Read], Read 

I InvalidFP => GOTO noCommandLine] ; 
StreamDef s . JumpToFA[cmdstream, @cfa.fa 1 ANY => GOTO noCommandLine]; 
IF cmdstream. endof [cmdstream] THEN 

BEGIN 

cmdstream. destroy[ cmdstream] ; 

cmdstream <- NIL; 

END; 
EXITS 

noCommandLine => cmdstream <- NIL; 
END; 

StripExtension: PROCEDURE [name:STRING] « 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = '. THEN BEGIN name. length <- i; RETURN END; 
ENDLOOP; 
RETURN 
END; 

SourceSwitches: PROCEDURE [wanted: BOOLEAN, st: StatsDesired] « 
BEGIN 
st[char]<-wanted; 
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st[l ine]<-wantecl; 
END; 

TallyStats: PROCEDURE » 
BEGIN 

type: StatType; 
FOR type IN StatType DO 

IF localStatsWantocl[type] THEN 

subtotal[type] *- subtotal [type]+stats[type] ; 
ENDLOOP; 
END; 

Total: PROCEDURE [name: STRING, subt: BOOLEAN] « 
BEGIN 

type: StatType; 

THROUGH [CfilenameField) DO Wri teChar[ ' ] ENDLOOP; 
FOR type IN StatType DO 

IF localStatsWanted[type] THEN 
BEGIN 

IF type = LAST[StatType] THEN WriteChar[' ]; 
THROUGH [0. ,format[type]. columns) DO Wri teChar[ ' -] ; ENDLOOP; 
THROUGH [0..2) DO WriteChar[' ]; ENDLOOP; 
END; 
ENDLOOP; 
WriteChar[CR]; Wri teChar[CR] ; 
WriteString[name] ; 

THROUGH [name. length. .filenameField) DO WriteChar[ ' ] ENDLOOP; 
FOR type IN StatType DO 

IF localStatsWanted[type] THEN 
BEGIN 
WriteDouble[ 

IF subt THEN subtotal[type] ELSE subtotal[type]+total[type] , 
format[type]]; 
IF type # LAST[StatType] THEN WriteString[" "]; 
END; 
ENDLOOP; 
WriteChar[CR]; WriteChar[CR] ; 
IF subt THEN 
BEGIN 
FOR type IN StatFype DO 

total[type] <- total[type]+subtotal[type] ; 
ENDLOOP; 
subtotal ^ [0, 0. 0, 0, 0, 0, 0, 0]; 
END; 
END; 

WriteDouble: PROCEDURE [num: LONG INTEGER, format : lODefs.NumberFormat] = 
BEGIN 

i: CARDINAL; 
temp: STRING <- [20]; 

StringDefs,AppendLongNumber[ temp, num, 10] ; 
IF temp. length > format. col umns THEN 

FOR i IN [0. .format. columns) DO WriteChar[ ' *] ENDLOOP 
ELSE 
BEGIN 

FOR i IN [temp . length . .format. columns) DO 
WriteChar[' ]; 
ENDLOOP; 
WriteString[temp] ; 
END; 
END; 

-- main body 

time: STRING <- [18]; 

TimeDef s . AppendDayTime[time , TimeDef s .UnpackDT[TimeDeFs .Curren tDayTime[]]]; 

IODefs.WriteString[" 

Alto/Mesa Statistics Package 

Statistics as of "]; 

IODefs.WriteLine[timo]; 

GetStats[]; 

ImageDef s .StopMesa[]; 
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END. 



